home *** CD-ROM | disk | FTP | other *** search
/ Aminet 24 / Aminet 24 (1998)(GTI - Schatztruhe)[!][Apr 1998].iso / Aminet / gfx / show / GS510_data.lha / ghostscript / 5.10 / gs_setpd.ps < prev    next >
Text File  |  1997-12-28  |  21KB  |  668 lines
  1. %    Copyright (C) 1994, 1996, 1997 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of Aladdin Ghostscript.
  4. % 
  5. % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6. % or distributor accepts any responsibility for the consequences of using it,
  7. % or for whether it serves any particular purpose or works at all, unless he
  8. % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9. % License (the "License") for full details.
  10. % 
  11. % Every copy of Aladdin Ghostscript must include a copy of the License,
  12. % normally in a plain ASCII text file named PUBLIC.  The License grants you
  13. % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14. % under certain conditions described in the License.  Among other things, the
  15. % License requires that the copyright notice and this notice be preserved on
  16. % all copies.
  17.  
  18. % The current implementation of setpagedevice has the following limitations:
  19. %    - It doesn't attempt to "interact with the user" for Policy = 2.
  20.  
  21. languagelevel 1 .setlanguagelevel
  22. level2dict begin
  23.  
  24. % ---------------- Redefinitions ---------------- %
  25.  
  26. % Redefine .beginpage and .endpage so that they call BeginPage and
  27. % EndPage respectively if appropriate.
  28.  
  29. % We have to guard against the BeginPage procedure not popping its operand.
  30. % This is really stupid, but the Genoa CET does it.
  31. /.beginpage        % - .beginpage -
  32.  { .currentshowpagecount
  33.     { .currentpagedevice pop /BeginPage .knownget
  34.        {    % Stack: ... pagecount proc
  35.      count 2 .execn
  36.         % Stack: ... ..???.. oldcount
  37.      count 1 add exch sub { pop } repeat
  38.        }
  39.        { pop
  40.        }
  41.       ifelse
  42.     }
  43.    if
  44.  } bind odef
  45.  
  46. % Guard similarly against EndPage not popping its operand.
  47. /.endpage        % <reason> .endpage <print_bool>
  48.  { .currentshowpagecount
  49.     { 1 index .currentpagedevice pop /EndPage .knownget
  50.        {    % Stack: ... reason pagecount reason proc
  51.      count 2 .execn
  52.         % Stack: ... ..???.. print oldcount
  53.      count 2 add exch sub { exch pop } repeat
  54.        }
  55.        { pop pop 2 ne
  56.        }
  57.       ifelse
  58.     }
  59.     { 2 ne
  60.     }
  61.    ifelse
  62.  } bind odef
  63.  
  64. % Define interpreter callouts for handling gstate-saving operators,
  65. % to make sure that they create a page device dictionary for use by
  66. % the corresponding gstate-restoring operator.
  67. % We'd really like to avoid the cost of doing this, but we don't see how.
  68. % The names %gsavepagedevice, %savepagedevice, %gstatepagedevice,
  69. % %copygstatepagedevice, and %currentgstatepagedevice are known to the
  70. % interpreter.
  71.  
  72. (%gsavepagedevice) cvn
  73.  { currentpagedevice pop gsave
  74.  } bind def
  75.  
  76. (%savepagedevice) cvn
  77.  { currentpagedevice pop save
  78.  } bind def
  79.  
  80. (%gstatepagedevice) cvn
  81.  { currentpagedevice pop gstate
  82.  } bind def
  83.  
  84. (%copygstatepagedevice) cvn
  85.  { currentpagedevice pop copy
  86.  } bind def
  87.  
  88. (%currentgstatepagedevice) cvn
  89.  { currentpagedevice pop currentgstate
  90.  } bind def
  91.  
  92. % Define interpreter callouts for handling gstate-restoring operators
  93. % when the current page device needs to be changed.
  94. % The names %grestorepagedevice, %grestoreallpagedevice,
  95. % %restorepagedevice, and %setgstatepagedevice are known to the interpreter.
  96.  
  97. /.installpagedevice
  98.  {    % Since setpagedevice doesn't create new device objects,
  99.     % we must (carefully) reinstall the old parameters in
  100.     % the same device.
  101.    .currentpagedevice pop null currentdevice null .trysetparams
  102.    dup type /booleantype eq
  103.     { pop pop }
  104.     {        % This should never happen!
  105.       DEBUG { (Error in .trysetparams!\n) print pstack flush } if
  106.       cleartomark pop pop pop
  107.       /.installpagedevice cvx /rangecheck signalerror
  108.     }
  109.    ifelse pop pop
  110.    erasepage initgraphics .beginpage
  111.  } bind def
  112.  
  113. /.uninstallpagedevice
  114.  { 2 .endpage { .currentnumcopies false .outputpage } if
  115.    nulldevice
  116.  } bind def
  117.  
  118. (%grestorepagedevice) cvn
  119.  { .uninstallpagedevice grestore .installpagedevice
  120.  } bind def
  121.  
  122. (%grestoreallpagedevice) cvn
  123.  { .uninstallpagedevice grestore .installpagedevice grestoreall
  124.  } bind def
  125.  
  126. (%restorepagedevice) cvn
  127.  { .uninstallpagedevice grestore .installpagedevice restore
  128.  } bind def
  129.  
  130. (%setgstatepagedevice) cvn
  131.  { .uninstallpagedevice setgstate .installpagedevice
  132.  } bind def
  133.  
  134. % Redefine .currentnumcopies so it consults the NumCopies device parameter.
  135. /.numcopiesdict mark
  136.   /NumCopies dup
  137. .dicttomark readonly def
  138.  
  139. /.currentnumcopies
  140.  { currentdevice //.numcopiesdict .getdeviceparams
  141.    dup type /integertype eq
  142.     { exch pop exch pop }
  143.     { cleartomark #copies }
  144.    ifelse
  145.  } bind odef
  146.  
  147. % ---------------- Auxiliary definitions ---------------- %
  148.  
  149. % Define the required attributes of all page devices, and their default values.
  150. % We don't include attributes such as .MediaSize, which all devices
  151. % are guaranteed to supply on their own.
  152. /.defaultpolicies mark
  153.   /PolicyNotFound 1
  154.   /PageSize 0
  155.   /PolicyReport {pop} bind
  156. .dicttomark readonly def
  157. /.requiredattrs mark
  158.   /PageOffset [0 0] readonly
  159. % We define InputAttributes and OutputAttributes with a single
  160. % dummy media type that handles pages of any size.
  161. % Devices that care will override this.
  162.   /InputAttributes mark 0
  163.     mark /PageSize [0 dup 16#7ffff dup] .dicttomark readonly
  164.   .dicttomark readonly
  165.   (%MediaSource) 0
  166.   /OutputAttributes mark 0
  167.     mark .dicttomark readonly
  168.   .dicttomark readonly
  169.   (%MediaDestination) 0
  170.   /Install {.callinstall} bind
  171.   /BeginPage {.callbeginpage} bind
  172.   /EndPage {.callendpage} bind
  173.   /Policies .defaultpolicies
  174. .dicttomark readonly def
  175.  
  176. % Define currentpagedevice so it creates the dictionary on demand if needed,
  177. % adding all the required entries defined just above.
  178. % We have to deal specially with entries that the driver may change
  179. % on its own.
  180. /.dynamicppkeys mark
  181.   /.MediaSize dup        % because it changes when PageSize is set
  182.   /PageCount dup
  183. .dicttomark readonly def
  184. /.makecurrentpagedevice        % - .makecurrentpagedevice <dict>
  185.  { currentdevice null .getdeviceparams
  186.     % In case of duplicate keys, .dicttomark takes the entry
  187.     % lower on the stack, so we can just append the defaults here.
  188.    .requiredattrs { } forall .dicttomark
  189.    dup .setpagedevice
  190.  } bind def
  191. /currentpagedevice
  192.  { .currentpagedevice
  193.     { dup length 0 eq
  194.        { pop .makecurrentpagedevice
  195.        }
  196.        {    % If any of the dynamic keys have changed,
  197.         % we must update the page device dictionary.
  198.      currentdevice //.dynamicppkeys .getdeviceparams .dicttomark
  199.       {    % Stack: current key value
  200.         2 index 2 index .knownget { 1 index ne } { true } ifelse
  201.          { 2 index wcheck not
  202.         {    % This is the first entry being updated.
  203.             % Copy the dictionary to make it writable.
  204.           3 -1 roll dup length dict .copydict
  205.           3 1 roll
  206.         }
  207.            if
  208.            2 index 3 1 roll put
  209.          }
  210.          { pop pop
  211.          }
  212.         ifelse
  213.       }
  214.      forall
  215.         % We would like to do a .setpagedevice so we don't keep
  216.         % re-creating the dictionary.  Unfortunately, the effect
  217.         % of this is that if any dynamic key changes (PageCount
  218.         % in particular), we will do the equivalent of a
  219.         % setpagedevice at the next restore or grestore.
  220.         % Therefore, we make the dictionary read-only, but
  221.         % we don't store it away.  I.e., NOT:
  222.         % dup wcheck { .setpagedevice .currentpagedevice pop } if
  223.      readonly
  224.        }
  225.       ifelse
  226.     }
  227.    if
  228.  } bind odef
  229.  
  230. % The implementation of setpagedevice is quite complex.  Currently,
  231. % everything but the media matching algorithm is implemented here.
  232.  
  233. % By default, we only present the requested changes to the device,
  234. % but there are some parameters that require special merging action.
  235. % Define those parameters here, with the procedures that do the merging.
  236. % The procedures are called as follows:
  237. %    <merged> <key> <new_value> -proc- <merged> <key> <new_value'>
  238. /.mergespecial mark
  239.   /InputAttributes
  240.    { dup null eq
  241.       { pop null
  242.       }
  243.       { 3 copy pop .knownget
  244.      { dup null eq
  245.         { pop dup length dict }
  246.         { dup length 2 index length add dict .copydict }
  247.        ifelse
  248.      }
  249.      { dup length dict
  250.      }
  251.         ifelse .copydict readonly
  252.       }
  253.      ifelse
  254.    } bind
  255.   /OutputAttributes 1 index
  256.   /Policies
  257.     { 3 copy pop .knownget
  258.        { dup length 2 index length add dict .copydict }
  259.        { dup length dict }
  260.       ifelse copy readonly
  261.     } bind
  262. .dicttomark readonly def
  263.  
  264. % Define the keys used in input attribute matching.
  265. /.inputattrk